1 POKE53280,.:POKE53281,.:PRINTCHR$(147):POKE53265,80:S=54272:FORI=15TO1
6 POKES+24,I:FORD=8TO14:
11 POKES+4,17:POKES+11,33:POKES+18,129:POKES,205:
16 POKES+5,12:POKES+12,96:POKES+13,242:POKES+19,96::POKES+20,7:POKE646,D*2
21 :POKE53282,D
26 POKES+5,9:POKES+6,139:FORX=1TO11:POKES+24,15:POKE53284,PEEK(646)*RND(1)+D
27 :POKE53283,D+2
28 PRINTTAB(I+RND(D)*X)" ";:GOSUB40
31 POKES+4,16:POKES+11,16:POKES+18,16 ::POKE53284,X:POKES+1,D+ABS(I/X)
36 NEXT:NEXT::NEXT:
37 FORT=1TO1250:NEXT:POKE56325,.:PRINT"[147] LUKIAN":FORT=1TO25 :NEXT:SYS2048
40 PRINTTAB(I)"[129][197][150][206][152][196][154][197][153][146]";:POKE53284,14*RND(1)+14 :RETURN